home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / webvrchk / webvrchk.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-04  |  3.0 KB  |  85 lines
  1. VERSION 5.00
  2. Object = "{F27AA195-8600-11D1-AD8F-DB21EA843472}#3.0#0"; "WEBVCHK2.OCX"
  3. Begin VB.Form frmTest 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "WebVerCheck Test"
  6.    ClientHeight    =   3210
  7.    ClientLeft      =   30
  8.    ClientTop       =   285
  9.    ClientWidth     =   4740
  10.    Icon            =   "WebVrChk.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3210
  15.    ScaleWidth      =   4740
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Check..."
  19.       Height          =   372
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   972
  24.    End
  25.    Begin DevPowerWebVrChk.WebVrChk WebVrChk1 
  26.       Left            =   1200
  27.       Top             =   120
  28.       _ExtentX        =   847
  29.       _ExtentY        =   847
  30.       AutoLaunchBrowser=   -1  'True
  31.       Version         =   "0.0"
  32.    End
  33.    Begin VB.Label lblVersion 
  34.       Height          =   228
  35.       Left            =   1788
  36.       TabIndex        =   3
  37.       Top             =   192
  38.       Width           =   2304
  39.    End
  40.    Begin VB.Label Label2 
  41.       Caption         =   $"WebVrChk.frx":030A
  42.       Height          =   1428
  43.       Left            =   132
  44.       TabIndex        =   2
  45.       Top             =   1560
  46.       Width           =   4452
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   $"WebVrChk.frx":0462
  50.       Height          =   972
  51.       Left            =   120
  52.       TabIndex        =   1
  53.       Top             =   588
  54.       Width           =   4452
  55.    End
  56. Attribute VB_Name = "frmTest"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Private Sub Command1_Click()
  62.     ' Perform Version Check:
  63.     WebVrChk1.Check
  64. End Sub
  65. Private Sub Form_Load()
  66.     lblVersion.Caption = "WebVrChk Version " + WebVrChk1.Version
  67. End Sub
  68. Private Sub WebVrChk1_ErrorInDownload(ByVal Error As wvcError)
  69.     Select Case Error
  70.         Case wvcFileNotFound, wvcCoundNotConnect
  71.             MsgBox "Could not connect to web site or file not found"
  72.     End Select
  73. End Sub
  74. Private Sub WebVrChk1_UpdateAvailable(ByVal sNewVersion As String, ByVal sDownloadURL As String, ByVal sAbstract As String, ByVal sCustomData As String)
  75.     MsgBox "Version available is " + sNewVersion + ", CurrentVersion property is set to " + WebVrChk1.CurrentVersion + _
  76.            vbLf + vbLf + "Download URL set to : " + sDownloadURL + _
  77.            vbLf + vbLf + "Abstract set to : " + sAbstract + _
  78.            vbLf + vbLf + "Custom Data set to : " + sCustomData, _
  79.            vbInformation, "A new version has been found"
  80. End Sub
  81. Private Sub WebVrChk1_UpdateUnavailable()
  82.     MsgBox "You have the most recent version available (" + WebVrChk1.CurrentVersion + ")", _
  83.            vbInformation, "A new version was not found"
  84. End Sub
  85.